
\begin{tikzpicture}[scale=.36]
  \tkzDefPoints{0/{4*sqrt(3)}/A,-9/0/B,9/0/C,4/0/D}
  \tkzInterLC(A,C)(D,C) \tkzGetSecondPoint{E}
  \tkzInterLL(A,D)(B,E) \tkzGetPoint{P}
  \tkzDrawPolygon(A,B,C)
  \tkzDrawSegments(A,D B,E)
  \tkzLabelPoint[above](A){$A$}
  \tkzLabelPoint[below](B){$B$}
  \tkzLabelPoint[below](C){$C$}
  \tkzLabelPoint[below](D){$D$}
  \tkzLabelPoint[above](E){$E$}
  \tkzLabelPoint[below](P){$P$}
  \tkzMarkSegments[color=blue,mark=|](A,B A,C)
  \tkzDrawPoints(A,B,C,D,E,P)
  \tkzLabelPoints[above](A,E)
  \tkzLabelPoints[below](B,C,D,P)
\end{tikzpicture}
